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ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 
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ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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=30-198e 92:09:51 Fekiut °saeise 
MODULE settime ( ab bent = ‘v04-000', 


ADDRESSING _MODE (EXTERNAL = GENERAL)) = 


BEGIN 
V@eOeePeeAAHRHHeHeeHeHHeHeeteReetetereeeReeeeeereneeReteteneRereneeerere 
'@ * 
ie COPYRIGHT («) 1978 1980, 1982, 1984 BY * 
ie MIGiT AL Fou 1 CORPORATION, MAYNARD, MASSACHUSETTS. . 
ie +L RIGHTS RES RVED. . 
: ® 
ie THIS SOFTWARE | Is $ FURNISHED. U UNDER A LICENSE AND MAY BE USED AND COPIED *« 
ie ONLY IN ACCOR WiTH HE OF SUCH LICEN ENSE AND WITH THE © 
ie INCLUSION OF Tue ABOV COPYRIGHY NOTICE. THIS SOFTWARE OR ANY OTHER ®* 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY © 
is TRANSFERRED. : 
° ® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE wit THouT Ice . 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITA Ce aul PREM * 
is CORPORATION. ‘ 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
i 

l escanenniesssatedebabenbndinaseaainbbendianidaiaiabieeanibiadtibaialinabbens 


FACILITY: SETPRO Command 
ABSTRACT: 

This utility sets the system time. 
ENVIRONMENT : 

VAX/VMS operating system. Privileged user mode. 
AUTHOR: Gerry Smith 66-Jan-1983 
Modified by: 


v03-001 gAsetie 29-Mar-1983 
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i 
Be Remove last traces of old command dispatcher. 
i 


fr 


V4.0-742 
IME .832;1 


“— 


3 & ; 
3 i Bt | Include files 
; H 5 i LIBRARY ‘SYSSLIBRARY: STARLET’; 


ifcdeo-1964 91:01:37 


AX-11 Bliss-32 V4.0-742 
CLIUTL.SRCJSETTIME .B32;1 


! VAX/VMS common definitions 
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! 
Table of contents 


FORWARD ROUTINE 
set$Stime : NOVALUE; ! Routine to set the time 


NOUS WR 


1 
External routines 


EXTERNAL ROUT INE 
i get_value, ' CLI routine to get the time 
LibScvt_time; ' Routine to convert to system time 


' 
External definitions 


EXTERNAL LITERAL 


NO 
ow 
= 
woo WMP ws — 


mt a ss a) st a 4 2 4 


71 6 set$_writeerr; ! Error modifying... 
7 0070 

7 0071 ! 

74 8076 ! Declare some shared messages 

75 007 ! 

76 P 0074 SSHR_MSGDEF (SET,119,LOCAL, 

77 P 0075 (invquaval, error), 

4 0076 (valerr, error)); 


= 


SETT as Saeac sas =1984 01:01:27 -YAXe11 BLiss-32_vs.0-742 
y04~008 1e-geb=13be 93:85:37 | ee bE he gs2e he 3g52 
SL OGAL ROUTINE set$time : NOVALUE = 


'e¢ 
! Functional description 


This is the routine for the SET TIME command. 
It is called from the SET command processor. 


status, ' Status return 
time : VECTORL2) INITIAL(0,0) ' System time initially set to zero 
time_desc : SBBLOCK dsc$c_s_b(n); ! Descriptor for system time 


o 
oO 
co 


PARA SODA ARAVA OSRIF RE MUO SO ORR oO Oo I eS 
SS “ooo Ge G2 Goce so Ge oo Goon 
=PINPIMIGAPININININIWSS & BAS URSIN PONININIPUPIPOPIPPIPIPOPONIPOPPUNUPIPUND 

oO ft 

oO 3 

bm a 

og o) 


' 
} First, get the time value by asking the CLI for it. 


Sinit dyndesc (time desc); ! Make the time descriptor dynamic 
IF cli$get_value(ZASCID ‘TIME’, ! If there was a value given 
time_desc) ! then convert it. 
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o 
ww 


BEGIN 
My (status = LibScvt_time(time_desc, time)) 


BEGIN 
SIGNAL (set$_writeerr, 1, ZASCID ‘time’, set$_valerr); 
RETURN; 


END; 
! 
Set the time. 


iF NOT (status = $SETIME(TIMADR = time)) 
THEN SIGNAL(set$_writeerr, 1, ZASCID ‘time’, .status); 


RETURN; 
END; 
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S&S 
WN CO OONOUS WN OOM 
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-TITLE SETTIME 
\ 


- IDENT 04-000\ 
-PSECT SPLITS,NOWRT ,NOEXE ,2 
45 4D 49 54 00000 P.AAB: .ASCII \TIME\ 
010E0004 00004 P.AAA: .LONG 17694724 
00000000" 00008 -ADDRESS P.AAB 
65 6D rH 1g) Babe P.AAD: .ASCII \time\ 
010E0004 00010 P.AAC: .LONG 17694724 


———_——____—-—- 


vO4~006 


5E 
04 
020E0000 
04 
0000 
000000006 99 
08 
04 


000000006 99 


C 
007711EA 
0000" 


08 
000000006 99 


0000 


00000000 
000000006 00 


; Routine Size: 102 bytes, Routine Base: $COD 


F 16 
16-Sep-19 1:01:27 AX-11 Bliss-32 V4.0-742 
14- 30-1984 93:09:54 CLIUTL.SRCISETTIME.832;1 
one 14 «ADDRESS P.AAD 
18 P.AAF: .ASCII yg ine} 
4 0004 if P.AAE: .LONG 17694724 
0000000" 2 «ADDRESS P.AAF 
sEXTRN CLISGET VALUE, LIBSCVT_TIME 
-EXTRN SETS_WRITEERR, SYSSSET TIME 


«PSECT S$CODES$,NOWRT,2 
0¢°08$ 20998 ENTRY SETSTINE, Save R2 
AE sé $009 CLRO th, 
8F DD 90008 PUSHL  #34471936 
AE D4 000¢ CLRL TIME_DESC+4 

+ 2e DBP 8801 PUSHAB P_AAA 
92 FB SOOT? CALLS #2, CLISGET_VALUE 
3 0001€ BLBC RO, 1$ 
AE 9F 00021 PUSHAB TIME 
AE 9F 00024 PUSHAB T ME_DESC 
03 i 0027 CALLS - TBST _TIME 
DO 0002E MOVL no STATUS 
52 €8 00031 BLBS a033%0. 
BF DD 00034 PUSHL #780 to'® 
16 71 ooo8e Bra 5 
AE 9F 90049 1$: PUSHAB TIME 
8) 68 D00cA mort RO STATS 
32 4 0040 LBS stir Tus . ATYS 
5 bb 90050 PUSHL 
' CF 9F 0005 SH att 
1 DD 0036 2s: SHL #1 
G 8F dD 0005 PUSHL #SETS_WRITEERR 
04 FB O0f CALLS #4, LIBSSIGNAL 
04 00065 3$: ET 
ES + 0000 


0123 


VecSep-i9ee 2:09:01 EetiunsaeSsetrinécasss 1 


138 8135 0 ELuvon 
~EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
ScODES 108 NOVECSNOURT: RDS °ENESNOSMR: ELS REL. CONNOPIECALLONCS) 
Library Statistics 
cosceses Syabels oooeeoe - Pages Processing 
File Total Loaded Percent Mapped Time 
-5255$DUA28: CSYSLIBISTARLET.L32;1 9776 17 0 581 | 00:01.0 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SETTIME/OBJ=OBJ$:SETTIME MSRCS$:SETTIME/UPDATE=(ENHS:SETTIME) 


Lexemes 


Compile 


102 code + 36 data bytes 
+f oe - 6 


/CPU-Min: 1396 
Use 54 pages 
tion Complete 


COMMAND QUALIFIERS 
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